home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / wtj008.zip / OBJECTS.ZIP / USTRINGS.PAS < prev   
Pascal/Delphi Source File  |  1992-05-17  |  715b  |  28 lines
  1. unit UStrings;
  2.   {-Unit to access TSTRINGS.DLL from a TPW program.}
  3. interface
  4.  
  5. uses WinTypes;
  6.  
  7. type
  8.   PString = ^TString;
  9.   TString =
  10.     record
  11.       sString : PChar;
  12.       sGetString : function(sSelf : PString) : PChar;
  13.       sDone : procedure (sSelf : PString);
  14.     end;
  15. function TStringInit(AString : PChar; var sSelf : TString) : Bool;
  16.   {-Initialize an instance of a TString.}
  17.  
  18. function TStringsGetString(sSelf : PString) : PChar;
  19. procedure TStringsDone(sSelf : PString);
  20.  
  21. implementation
  22.  
  23. function TStringInit;            external 'TSTRINGS' index 1;
  24. function TStringsGetString;      external 'TSTRINGS' index 2;
  25. procedure TStringsDone;          external 'TSTRINGS' index 3;
  26.  
  27. end.
  28.